home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / util / boot / ToolManager21b.lha / ToolManager / Install / Install < prev    next >
Text File  |  1993-05-16  |  13KB  |  329 lines
  1. /*
  2.  * Install V2.1
  3.  *
  4.  * ToolManager install script
  5.  *
  6.  * (c) 1990-1993 Stefan Becker
  7.  */
  8.  
  9. /* Main routine */
  10. IF (~SHOW("L","rexxsupport.library")) THEN
  11.  CALL ADDLIB("rexxsupport.library", 0, -30)
  12.  
  13. /* Set locale strings */
  14. language = ARG(1)
  15. SELECT
  16.  WHEN language = "deutsch"    THEN CALL SetDeutsch;
  17.  WHEN language = "français"   THEN CALL SetFrancais;
  18.  WHEN language = "italiano"   THEN CALL SetItaliano;
  19.  WHEN language = "nederlands" THEN CALL SetNederlands;
  20.  WHEN language = "norsk"      THEN CALL SetNorsk;
  21.  WHEN language = "suomi"      THEN CALL SetSuomi;
  22.  WHEN language = "svenska"    THEN CALL SetSvenska;
  23.  OTHERWISE CALL SetEnglish;
  24. END
  25.  
  26. IF (GetAnswer(Strings.InstallProgram) == Strings.Yes) THEN
  27.  CALL InstallProgram;
  28.  
  29. IF (GetAnswer(Strings.InstallLocale) == Strings.Yes) THEN
  30.  CALL InstallLocale;
  31.  
  32. IF (GetAnswer(Strings.InstallDemo) == Strings.Yes) THEN
  33.  CALL InstallDemo;
  34.  
  35. SAY;
  36. SAY Strings.InstallCompleted;
  37.  
  38. RETURN;
  39.  
  40. /* Install program */
  41. InstallProgram:
  42.  
  43. SAY;
  44. SAY Strings.InstallLibrary;
  45. ADDRESS COMMAND "Copy >NIL: /Libs/toolmanager.library LIBS:";
  46. SAY Strings.InstallStarter;
  47. ADDRESS COMMAND "Copy >NIL: /WBStartup/#? SYS:WBStartup";
  48. SAY Strings.InstallPrefs;
  49. ADDRESS COMMAND "Copy >NIL: /Prefs/#? SYS:Prefs";
  50. SAY Strings.InstallWBStart;
  51. ADDRESS COMMAND "Copy >NIL: /L/WBStart-Handler L: CLONE";
  52.  
  53. RETURN;
  54.  
  55. /* Install language file */
  56. InstallLocale:
  57.  
  58. SAY;
  59. SAY Strings.LanguagesTitle;
  60. SAY;
  61. SAY "0 - english,    1 - deutsch, 2 - eifel, 3 - français, 4 - italiano";
  62. SAY "5 - nederlands, 6 - norsk,   7 - suomi, 8 - svenska";
  63.  
  64. i = GetAnswer(Strings.ChooseLanguage);
  65. SELECT
  66.  WHEN i = 1 THEN language = "deutsch";
  67.  WHEN i = 2 THEN language = "eifel";
  68.  WHEN i = 3 THEN language = "français";
  69.  WHEN i = 4 THEN language = "italiano";
  70.  WHEN i = 5 THEN language = "nederlands";
  71.  WHEN i = 6 THEN language = "norsk";
  72.  WHEN i = 7 THEN language = "suomi";
  73.  WHEN i = 8 THEN language = "svenska";
  74.  OTHERWISE language = "";
  75. END
  76.  
  77. SAY;
  78. IF (language ~= "") THEN
  79.  DO
  80.   SAY Strings.InstallLanguage1 || language || Strings.InstallLanguage2;
  81.   ADDRESS COMMAND "Copy >NIL: /Locale/Catalogs/" || language || "/#? LOCALE:Catalogs/" || language;
  82.  END
  83. ELSE
  84.  SAY Strings.DefaultLanguage;
  85.  
  86. RETURN;
  87.  
  88. /* Install demo configuration */
  89. InstallDemo:
  90.  
  91. IF SHOWLIST("P","ToolManager") THEN
  92.  /* ToolManager 1.X active */
  93.  CALL GetAnswer(Strings.QuitTM1X);
  94. ELSE IF SHOWLIST("W","ToolManager Handler") THEN
  95.  /* ToolManager 2.X active */
  96.  DO
  97.   SAY;
  98.   SAY Strings.QuitTM2X;
  99.   ADDRESS COMMAND "/WBStartup/ToolManager";
  100.   /* Wait until handler has vanished */
  101.   DO WHILE SHOWLIST("W","ToolManager Handler")
  102.    CALL DELAY(50);
  103.   END
  104.   /* Flush old library */
  105.   ADDRESS COMMAND "Avail >NIL: FLUSH";
  106.  END
  107.  
  108. SAY;
  109. SAY Strings.InstallConfig;
  110. ADDRESS COMMAND "Copy >NIL: /TM_Demo.prefs ENV:ToolManager.prefs";
  111. SAY Strings.StartToolManager
  112. ADDRESS COMMAND "/WBStartup/ToolManager";
  113. SAY Strings.StartPrefs;
  114. ADDRESS COMMAND "Run <NIL: >NIL: /Prefs/ToolManager";
  115.  
  116. RETURN;
  117.  
  118. /* Get answer from user */
  119. GetAnswer: PROCEDURE
  120.  
  121. PARSE ARG question
  122.  
  123. SAY;
  124. CALL WRITECH(STDOUT, question);
  125. PULL answer;
  126.  
  127. RETURN LEFT(answer, 1);
  128.  
  129. /* Translations */
  130. /* Deutsch */
  131. SetDeutsch:
  132.  
  133. Strings.Yes              = "J";
  134. Strings.InstallProgram   = "ToolManager 2.1 installieren? [J/N] ";
  135. Strings.InstallLocale    = "Übersetzungsdatei installieren? [J/N] ";
  136. Strings.InstallDemo      = "Beispielkonfiguration installieren? [J/N] ";
  137. Strings.InstallCompleted = "Installation beendet";
  138. Strings.InstallLibrary   = "Installiere Library...";
  139. Strings.InstallStarter   = "Installiere Startprogramm...";
  140. Strings.InstallPrefs     = "Installiere Voreinsteller...";
  141. Strings.InstallWBStart   = "Installiere WBStart-Programm...";
  142. Strings.LanguagesTitle   = "Verfügbare Übersetzungen:";
  143. Strings.ChooseLanguage   = "Wähle 0-9: ";
  144. Strings.InstallLanguage1 = "Installiere Übersetzungsdatei für '";
  145. Strings.InstallLanguage2 = "'...";
  146. Strings.DefaultLanguage  = "Benutze Englisch...";
  147. Strings.QuitTM1X         = "Bitte stoppen sie den momentan aktiven ToolManager! <RETURN>";
  148. Strings.QuitTM2X         = "Sende Ende-Signal zum momentan aktiven ToolManager...";
  149. Strings.InstallConfig    = "Installiere Beispielkonfiguration...";
  150. Strings.StartToolManager = "Starte ToolManager 2.1...";
  151. Strings.StartPrefs       = "Starte Voreinsteller...";
  152.  
  153. RETURN;
  154.  
  155. /* English (default) */
  156. SetEnglish:
  157.  
  158. Strings.Yes              = "Y";
  159. Strings.InstallProgram   = "Install ToolManager 2.1? [Y/N] ";
  160. Strings.InstallLocale    = "Install language file? [Y/N] ";
  161. Strings.InstallDemo      = "Install demo configuration? [Y/N] ";
  162. Strings.InstallCompleted = "Installation complete...";
  163. Strings.InstallLibrary   = "Installing library...";
  164. Strings.InstallStarter   = "Installing starter...";
  165. Strings.InstallPrefs     = "Installing preferences editor...";
  166. Strings.InstallWBStart   = "Installing WBStart handler...";
  167. Strings.LanguagesTitle   = "Available languages:";
  168. Strings.ChooseLanguage   = "Choose 0-9: ";
  169. Strings.InstallLanguage1 = "Installing catalog file for '";
  170. Strings.InstallLanguage2 = "'...";
  171. Strings.DefaultLanguage  = "Using english catalog...";
  172. Strings.QuitTM1X         = "Please quit the currently active ToolManager! <RETURN>";
  173. Strings.QuitTM2X         = "Sending quit signal to currently active ToolManager...";
  174. Strings.InstallConfig    = "Installing demo configuration...";
  175. Strings.StartToolManager = "Starting ToolManager 2.1...";
  176. Strings.StartPrefs       = "Starting preferences editor...";
  177.  
  178. RETURN;
  179.  
  180. /* Français */
  181. SetFrancais:
  182.  
  183. Strings.Yes              = "O";
  184. Strings.InstallProgram   = "Installation de ToolManager 2.1? [O/N] ";
  185. Strings.InstallLocale    = "Installation pour la locale ? [O/N] ";
  186. Strings.InstallDemo      = "Installation de la configuration démo ? [O/N] ";
  187. Strings.InstallCompleted = "Installation achevée...";
  188. Strings.InstallLibrary   = "Installation de la librairie...";
  189. Strings.InstallStarter   = "Installation dans SYS:WBStartup...";
  190. Strings.InstallPrefs     = "Installation de l'éditeur de préférences...";
  191. Strings.InstallWBStart   = "Installation du gestionnaire WBStart...";
  192. Strings.LanguagesTitle   = "Langages disponibles";
  193. Strings.ChooseLanguage   = "Choisis 0-9: ";
  194. Strings.InstallLanguage1 = "Installation du fichier catalogue pour '";
  195. Strings.InstallLanguage2 = "'...";
  196. Strings.DefaultLanguage  = "Utilisation du catalogue anglais...";
  197. Strings.QuitTM1X         = "SVP quitter le ToolManager actuellement actif ! <RETOUR>";
  198. Strings.QuitTM2X         = "Envoi du signal quit au ToolManager actif...";
  199. Strings.InstallConfig    = "Installation de la configuration démo...";
  200. Strings.StartToolManager = "Lancement de ToolManager 2.1...";
  201. Strings.StartPrefs       = "Lancement de l'éditeur de préférences...";
  202.  
  203. RETURN;
  204.  
  205. /* Italiano */
  206. SetItaliano:
  207.  
  208. Strings.Yes              = "S";
  209. Strings.InstallProgram   = "Installare ToolManager 2.1? [S/N] ";
  210. Strings.InstallLocale    = "Installare file di traduzione? [S/N] ";
  211. Strings.InstallDemo      = "Installare configurazione di esempio? [S/N] ";
  212. Strings.InstallCompleted = "Fine Installazione";
  213. Strings.InstallLibrary   = "Installa librerie...";
  214. Strings.InstallStarter   = "Installa programma di avvio...";
  215. Strings.InstallPrefs     = "Installa Editor Preferenze...";
  216. Strings.InstallWBStart   = "Installa programma WBStart...";
  217. Strings.LanguagesTitle   = "Traduzioni disponibili:";
  218. Strings.ChooseLanguage   = "Scegli 0-9: ";
  219. Strings.InstallLanguage1 = "Installa file traduzione per '";
  220. Strings.InstallLanguage2 = "'...";
  221. Strings.DefaultLanguage  = "Utilizza inglese...";
  222. Strings.QuitTM1X         = "Prego terminate ToolManager attualmente attivo! <RETURN>";
  223. Strings.QuitTM2X         = "Invio segnale di file a ToolManager attualmente attivo...";
  224. Strings.InstallConfig    = "Installazione configurazione di esempio...";
  225. Strings.StartToolManager = "Lancia ToolManager 2.1...";
  226. Strings.StartPrefs       = "Lancia Editor Preferenze...";
  227.  
  228. RETURN;
  229.  
  230. /* Nederlands */
  231. SetNederlands:
  232.  
  233. Strings.Yes              = "J";
  234. Strings.InstallProgram   = "ToolManager 2.1 installeren? [J/N] ";
  235. Strings.InstallLocale    = "Taal bestand installeren [J/N] ";
  236. Strings.InstallDemo      = "Demonstratie instellingen installeren? [J/N] ";
  237. Strings.InstallCompleted = "Installatie klaar...";
  238. Strings.InstallLibrary   = "Library aan het installeren...";
  239. Strings.InstallStarter   = "Starter aan het installeren...";
  240. Strings.InstallPrefs     = "Instellingen bewerker aan het installeren...";
  241. Strings.InstallWBStart   = "WBStart handler aan het installeren...";
  242. Strings.LanguagesTitle   = "Beschikbare talen:";
  243. Strings.ChooseLanguage   = "Kies 0-9:";
  244. Strings.InstallLanguage1 = "Installeer catalog bestand voor '";
  245. Strings.InstallLanguage2 = "'...";
  246. Strings.DefaultLanguage  = "Ik gebruik engels...";
  247. Strings.QuitTM1X         = "Verwijder A.U.B. een reeds draaiende ToolManager! <RETURN>";
  248. Strings.QuitTM2X         = "Ik stuur een einde signaal naar de reeds draaiende ToolManager...";
  249. Strings.InstallConfig    = "Demonstratie instellingen aan het installeren...";
  250. Strings.StartToolManager = "Ik start ToolManager 2.1...";
  251. Strings.StartPrefs       = "Ik start de instellingen bewerker...";
  252.  
  253. RETURN;
  254.  
  255. /* Norsk */
  256. SetNorsk:
  257.  
  258. Strings.Yes              = "J";
  259. Strings.InstallProgram   = "Installere ToolManager 2.1? [J/N]";
  260. Strings.InstallLocale    = "Installere språkfil? [J/N]";
  261. Strings.InstallDemo      = "Installere eksempelkonfigurasjon? [J/N]";
  262. Strings.InstallCompleted = "Installering ferdig";
  263. Strings.InstallLibrary   = "Installere library...";
  264. Strings.InstallStarter   = "Installere oppstartprogram...";
  265. Strings.InstallPrefs     = "Installere programmet for forhåndsinnstillinger...";
  266. Strings.InstallWBStart   = "Installere WBStart handler...";
  267. Strings.LanguagesTitle   = "Tilgjengelige språk:";
  268. Strings.ChooseLanguage   = "Velg 0-9: ";
  269. Strings.InstallLanguage1 = "Installerer språkdata for '";
  270. Strings.InstallLanguage2 = "'...";
  271. Strings.DefaultLanguage  = "Bruker engelsk språk...";
  272. Strings.QuitTM1X         = "Vennligst avslutt den ToolManager som kjører nå! <RETURN>";
  273. Strings.QuitTM2X         = "Sender stoppsignal til den ToolManager som nå kjører...";
  274. Strings.InstallConfig    = "Installerer eksempelkonfigurasjon...";
  275. Strings.StartToolManager = "Starter ToolManager 2.1...";
  276. Strings.StartPrefs       = "Starter programmet for forhåndsinstillinger...";
  277.  
  278. RETURN;
  279.  
  280. /* Suomi */
  281. SetSuomi:
  282.  
  283. Strings.Yes              = "K";
  284. Strings.InstallProgram   = "Asennetaanko ToolManager 2.1? [K/E]";
  285. Strings.InstallLocale    = "Asennetaanko kielitiedosto? [K/E]";
  286. Strings.InstallDemo      = "Asennetaanko esimerkki asetukset? [K/E]";
  287. Strings.InstallCompleted = "Asennus on valmis...";
  288. Strings.InstallLibrary   = "Asennetaan kirjastoa...";
  289. Strings.InstallStarter   = "Asennetaan käynnistäjä...";
  290. Strings.InstallPrefs     = "Asennetaan asetusmuokkaajaa...";
  291. Strings.InstallWBStart   = "Asennetaan: WBStart-handler...";
  292. Strings.LanguagesTitle   = "Saatavissa olevat kielet:";
  293. Strings.ChooseLanguage   = "Valitse 0-9 ";
  294. Strings.InstallLanguage1 = "Asennetaan kielitiedosto kielelle '";
  295. Strings.InstallLanguage2 = "'...";
  296. Strings.DefaultLanguage  = "Käytetään englanninkielistä kielitiedostoa...";
  297. Strings.QuitTM1X         = "Ole hyvä ja poista jo käynnissä oleva ToolManager <RETURN>";
  298. Strings.QuitTM2X         = "Lähetetään lopetuspyyntö käynnissä olevalle ToolManagerille...";
  299. Strings.InstallConfig    = "Asennetaan esimerkki asetukset...";
  300. Strings.StartToolManager = "Käynnistetään ToolManager 2.1...";
  301. Strings.StartPrefs       = "Käynnistetään asetusmuokkaaja...";
  302.  
  303. RETURN;
  304.  
  305. /* Svenska */
  306. SetSvenska:
  307.  
  308. Strings.Yes              = "J";
  309. Strings.InstallProgram   = "Installera ToolManager 2.1? [J/N] ";
  310. Strings.InstallLocale    = "Installera språkfil? [J/N] ";
  311. Strings.InstallDemo      = "Installera demonstrationskonfiguration? [J/N] ";
  312. Strings.InstallCompleted = "Installationen klar...";
  313. Strings.InstallLibrary   = "Installerar library...";
  314. Strings.InstallStarter   = "Installerar startprogrammet...";
  315. Strings.InstallPrefs     = "Installerar prefs-redigeraren...";
  316. Strings.InstallWBStart   = "Installerar WBStart handler...";
  317. Strings.LanguagesTitle   = "Tillgängliga språk:";
  318. Strings.ChooseLanguage   = "Välj 0-9: ";
  319. Strings.InstallLanguage1 = "Installerar catalog-fil för '";
  320. Strings.InstallLanguage2 = "'...";
  321. Strings.DefaultLanguage  = "Använder Engelsk catalog...";
  322. Strings.QuitTM1X         = "Var snäll och avsluta den ToolManager du redan kör! <RETURN>";
  323. Strings.QuitTM2X         = "Signalerar till den ToolManager du kör att avsluta...";
  324. Strings.InstallConfig    = "Installerar demonstrationskonfigurationen...";
  325. Strings.StartToolManager = "Startar ToolManager 2.1...";
  326. Strings.StartPrefs       = "Startar prefs-redigeraren...";
  327.  
  328. RETURN;
  329.